home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 January / 64er_Magazin_88-01_1988_Markt__Technik_de_Side_A.d64 / smilie huepf (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  266b  |  12 lines
  1. 10 poke56,128:poke55,0:clr
  2. 20 sys50000,8,"smilie"
  3. 30 sys51000,0,2
  4. 40 v=53248:pokev+32,0:pokev+33,0:pokev+39,15
  5. 50 pokev+21,1:pokev+1,125:pokev+23,0:pokev+29,0
  6. 60 print"[155][147]                                        [146]"
  7. 70 forx=0to343
  8. 80 pokev,xand255:pokev+16,x/256
  9. 90 forl=1to3:nextl
  10. 100 nextx
  11. 110 goto70
  12.